home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / MAILMEN.ARC / MAILINP.PRG < prev    next >
Text File  |  1985-12-21  |  2KB  |  97 lines
  1. * Converted to Dbase III by Bill Simpson 6/7/85 (713) 530-8500
  2. *!!*       dBASE CONVERT - dBASE III File Conversion Aid  v1.0 6/14/84
  3. *
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. * THIS PROGRAM IS CALLED MAILINP.PRG-- MASTER PROGRAM FOR INPUT OF DATA TO
  7. * MAILING LIST PROGRAM COPYRIGHT JULY 31, 1983 BY PHILIP K. PERLMAN
  8. SET TALK OFF
  9. CLEAR
  10. SET TALK OFF
  11. *poke 1047,10
  12. *!! Logical constant converted.
  13. STORE .T. TO CONTINUE
  14. DO WHILE CONTINUE
  15.   STORE 0 TO MAINMEN
  16.   STORE 0 TO MREC1
  17.   USE MAIL 
  18.   APPEND BLANK
  19.   STORE RECNO() TO MREC1
  20.   *!! Logical constant converted.
  21.   STORE .T. TO FMT
  22.   DO WHILE FMT
  23.     SET FORMAT TO GETMAIL
  24.     READ
  25.     CLEAR GETS
  26.     *!! Logical constant converted.
  27.     STORE .T. TO REVIEW
  28.     DO WHILE REVIEW
  29.       CLEAR
  30.       @ 10,5 SAY "Are all you entries correct ?"
  31.       @ 12,5 SAY "Press 'R' to review and correct your entries"
  32.       @ 14,5 SAY "Press 'Y' to write your entries into the record"
  33.       @ 16,5 SAY "Press 'N' to abort entries and return to the menu"
  34.       ?
  35.       ?
  36.       ?
  37.       WAIT TO ANS
  38.       IF UPPER(ANS) <> 'R' .AND. UPPER(ANS) <> 'Y' .AND. UPPER(ANS) <> 'N'
  39.         CLEAR
  40.         LOOP
  41.       ELSE
  42.         *!! Logical constant converted.
  43.         STORE .F. TO REVIEW
  44.       ENDIF
  45.     ENDDO
  46.     IF UPPER(ANS) = 'R'
  47.       CLEAR GETS
  48.       CLEAR
  49.       LOOP
  50.     ELSE
  51.       IF UPPER(ANS) = 'Y'
  52.         *!! Logical constant converted.
  53.         STORE .F. TO FMT
  54.         CLEAR
  55.       ELSE
  56.         *!! Logical constant converted.
  57.         STORE .F. TO FMT
  58.         CLEAR
  59.         SET DEVICE TO SCREEN
  60.         USE
  61.         USE MAIL
  62.         GOTO MREC1
  63.         DELE
  64.         PACK
  65.         RELEASE FMT, REVIEW, ANS, FORMAT,
  66.         RETURN
  67.       ENDIF
  68.     ENDIF
  69.   ENDDO
  70.   CLEAR
  71.   @ 10,5 SAY 'Do you want to add more records ?'
  72.   @ 12,5 SAY "Press 'N' to return to the menu"
  73.   @ 14,5 SAY 'Press any other key to continue'
  74.   ?
  75.   ?
  76.   ?
  77.   ?
  78.   WAIT TO ANSWER
  79.   IF UPPER(ANSWER) = 'N'
  80.     CLEAR
  81.     @ 10,5 SAY "...PROCESSING ENTRIES..."
  82.     USE
  83.     USE MAIL
  84.     INDEX ON PROF1 TO PROF1
  85.     INDEX ON PROF2 TO PROF2
  86.     INDEX ON PROF3 TO PROF3
  87.     INDEX ON LAST TO LAST
  88.     INDEX ON COMPANY TO COMP
  89.     *!! Logical constant converted.
  90.     STORE .F. TO CONTINUE
  91.     RETURN
  92.   ENDIF
  93. ENDDO
  94.  
  95.  
  96.  
  97.